home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 October / CHIP Ekim 1996.iso / winbatch / hlpwbt2.wb_ < prev    next >
Text File  |  1995-10-30  |  4KB  |  149 lines
  1. if param0==0
  2.    Message("Note:","This file is used by the help system to demonstrate help examples.%@CRLF%It is not designed to be run standalone.")
  3.    exit
  4. endif
  5. IntControl(29, @TAB, 0, 0, 0)     ; standardize on tab delimters
  6.  
  7. wbkind=16
  8. if WinMetrics(-4)>=4 then wbkind=32
  9.  
  10. goto %param1%
  11.  
  12. :wnnetname
  13. ;Check to see whether a 32 bit version of Windows is running.
  14. If WinMetrics(-4)>=4  
  15.         Message("Whoops! 32 bit Windows Version", "This Script doesn't work with your version of Windows. %@CRLF% SORRY")
  16.         exit
  17. endif
  18.  
  19.  
  20. ans=AskYesNo("Multinet wnNetNames Examples", "If you are running a 32 bit version of Windows, this test example will not run.  Select No to terminate test.")
  21. If ans==0 then exit
  22. AddExtender("wwwn16i.dll")
  23. netnames = wnNetNames()
  24. i=ItemLocate("OTHER",netnames,@TAB)
  25. if i!=0
  26.    netnames=ItemRemove(i,netnames,@TAB)
  27. endif   
  28. count = ItemCount(netnames,@TAB)
  29. esss=""
  30. if count!=1 then esss="s"
  31. Message("%count% available network%esss%", "This function evaluates the available networks on the local PC.  %@crlf%If a function requires a network name,  use a name appearing in this list.%@crlf%%@crlf%%netnames%") 
  32. exit
  33.  
  34. :novell3x
  35. a=FileLocate("Netware 3 Extender.hlp")
  36. if a=="" then a=FileLocate("novell3x.hlp")
  37. if a=="" 
  38.    Message("Ooops","Could not locate Novell 3.x help file")
  39. else
  40.    Run(a,"")
  41. endif
  42. exit
  43.  
  44. :novell4x
  45. a=FileLocate("Netware 4 Extender.hlp")
  46. if a=="" then a=FileLocate("novell4x.hlp")
  47. if a=="" 
  48.    Message("Ooops","Could not locate Novell 4.x help file")
  49. else
  50.    Run(a,"")
  51. endif
  52. exit
  53.  
  54. :basic31
  55. ans=AskYesNo("Basic31 Extender Help", "If you are running a 32 bit version of WinBatch, this help file may not exist.  Select NO to terminate, YES to continue.")
  56. If ans==1
  57.         a=FileLocate("Basic Network Extender.hlp")
  58.         if a=="" then a=FileLocate("netbasic.hlp")
  59.         if a=="" 
  60.            Message("Ooops","Could not locate Basic Network Extender help file")
  61.         else
  62.            Run(a,"")
  63.         endif
  64. endif
  65. exit
  66.  
  67. :multinet
  68. ans=AskYesNo("Multinet Extender Help", "If you are running a 32 bit version of WinBatch, this help file may not exist.  Select NO to terminate, YES to continue.")
  69. If ans==1
  70.         a=FileLocate("W4WKG Network.hlp")
  71.         if a=="" then a=FileLocate("multinet.hlp")
  72.         if a=="" 
  73.            Message("Ooops","Could not locate Multinet help file")
  74.         else
  75.            Run(a,"")
  76.         endif
  77. endif
  78. exit
  79.  
  80. :win32
  81. a=FileLocate("Win32 Network Extender.hlp")
  82. if a=="" then a=FileLocate("win32net.hlp")
  83. if a=="" 
  84.    Message("Ooops","Could not locate Win32 Network Extender help file")
  85. else
  86.    Run(a,"")
  87. endif
  88. exit
  89.  
  90. :wwwdged
  91. Run("wwwdgedt.hlp", "")
  92. exit
  93.  
  94. :winmacro
  95. Run("winmacro.hlp", "")
  96. exit
  97.  
  98. :wilhelp
  99. a=FileLocate("Windows Interface Language.hlp")
  100. if a=="" then a=FileLocate("WIL.hlp")
  101. if a=="" 
  102.    Message("Ooops","Could not locate Windows Interface Language help file")
  103. else
  104.    Run(a,"")
  105. endif
  106. exit
  107.  
  108.  
  109. :windowontop
  110.  
  111. ;Check to see whether a 32 bit version of Windows is running.
  112. If wbkind==32  
  113.         ; Set our windows to be on top
  114.         OurWnd=DllhWnd("")
  115.         xx=-1
  116.         DaDll=strcat(DirWindows(1),"USER32.DLL")
  117.         DllCall(DaDll,long:"SetWindowPos",long:OurWnd,long:xx,long:0,long:0,long:0,long:0,long:3)
  118.         Message("This Window","Should stay on top")
  119.         ;
  120.         ;Try it
  121.         
  122.         ;Return to normal mode
  123.         xx= -2
  124.         DllCall(DaDll,long:"SetWindowPos",long:OurWnd,long:xx,long:0,long:0,long:0,long:0,long:3)
  125.         ;Try it
  126.         
  127.         Message("This Window","Should be normal and fall behind")
  128.         exit
  129. else        
  130.         ; Set our windows to be on top
  131.         OurWnd=DllhWnd("")
  132.         DllCall("USER.EXE",void:"SetWindowPos",word:OurWnd,word:65535,word:0,word:0,word:0,word:0,word:3)
  133.         Message("This Window","Should stay on top")
  134.         ;
  135.         ;Try it
  136.         
  137.         ;Return to normal mode
  138.         DllCall("USER.EXE",void:"SetWindowPos",word:OurWnd,word:65534,word:0,word:0,word:0,word:0,word:3)
  139.         ;Try it
  140.         
  141.         Message("This Window","Should be normal and fall behind")
  142.         exit
  143. endif
  144.  
  145.  
  146.  
  147.  
  148.  
  149.